problems regarding varpart function in r

Dear members

 The file I have attached previously was big which might have created
trouble, therefore I have made it short for you to go through quickly
without wasting your valuable time. Only repeated matters are removed to
avoid confusion.

Kindly advise

With best Regards
Rajendra M Panda
School of Water Resources,
Indian Institute of Technology Kharagpur
-------------- next part --------------

 getwd()

[1] "C:/Documents and Settings/Rajendra/Desktop"

SA<-read.csv("SASP.csv",header = TRUE,stringsAsFactors = FALSE)
SAE<-read.csv("SAE.csv",header = TRUE,stringsAsFactors = FALSE)

library(lattice)

 library(vegan)

This is vegan 2.0-10

SPHL<-decostand (SA, "hell", na.rm = TRUE)
rda.vasc.0 <- rda (SPHL ~1, data = SAE, scale = FALSE, na.action = na.action.omit)

Error in svd(Xbar, nu = 0, nv = 0) : infinite or missing values in 'x'

rda.vasc.0 <- rda (SPHL ~1, data = SAE, scale = TRUE, na.action = na.action.omit)

Error in svd(Xbar, nu = 0, nv = 0) : infinite or missing values in 'x'

rda.vasc.0 <- rda (SPHL ~1, data = SAE, scale = TRUE, na.action = NULL)

Error in svd(Xbar, nu = 0, nv = 0) : infinite or missing values in 'x'

rda.vasc.0 <- rda (SPHL ~1, data = SAE, scale = FALSE)

Error in svd(Xbar, nu = 0, nv = 0) : infinite or missing values in 'x'

rda.vasc.0 <- rda (SPHL ~1, data = SAE)

Error in svd(Xbar, nu = 0, nv = 0) : infinite or missing values in 'x'

SAE <- scale(SAE)
SAE[is.nan(SAE)] <- 0 
rda.vasc.All <- rda (SPHL ~., data = SAE, scale = TRUE, na.action = na.omit)

Error in formula.default(object, env = baseenv()) : invalid formula

rda.vasc.All <- rda (SPHL ~., data = SAE, scale = FALSE, na.action = na.omit)

Error in formula.default(object, env = baseenv()) : invalid formula

rda.vasc.All <- rda (SPHL ~ ., data = SAE, scale = FALSE, na.action = na.omit)

Error in formula.default(object, env = baseenv()) : invalid formula

SAE<-read.csv("SAE.csv",header = TRUE,stringsAsFactors = FALSE)
SAE[is.nan(SAE)] <- 0 

Error in is.nan(SAE) : default method not implemented for type 'list'

rda.vasc.All <- rda (SPHL ~ ., SAE, scale = FALSE, na.action = na.omit)

Error in svd(Xbar, nu = 0, nv = 0) : infinite or missing values in 'x'

rda.vasc.All <- rda (SPHL ~ ., SAE, scale = FALSE, na.rm = TRUE)

Error in model.frame.default(data = SAE, na.rm = TRUE, na.action = function (object,  : 
  variable lengths differ (found for '(na.rm)')

vp1 <- varpart (SPHL, ~Pptn, ~ Temp, ~Moisture, data = SAE)

Error in qr.fitted(Q, Y) : NA/NaN/Inf in foreign function call (arg 5)

vp1 <- varpart (SPHL, ~Pptn, ~ Temp, ~Moisture, data = SAE, na.action = na.omit)

Error in as.vector(x, mode) : 
  cannot coerce type 'closure' to vector of type 'any'

vp1 <- varpart (SPHL, ~Pptn, ~ Temp, ~Moisture, data = SAE, scale = FALSE, na.action = na.omit)

Error in as.vector(x, mode) : 
  cannot coerce type 'closure' to vector of type 'any'

vp1<-rda(SPHL ~Pptn, data = X, scale = TRUE, na.action = na.fail)

Error in model.frame(data = X, na.action = function (object, ...)  : 
  object 'X' not found

vp1 <- varpart (SPHL, ~Pptn + ~ Temp + ~Moisture, data = SAE, scale = FALSE, na.action = na.omit)

Error in as.vector(x, mode) : 
  cannot coerce type 'closure' to vector of type 'any'

vp1 <- varpart (SPHL, ~Pptn + ~ Temp + ~Moisture, data = SAE, scale = FALSE)

Error in varpart(SPHL, ~Pptn + ~Temp + ~Moisture, data = SAE, scale = FALSE) : 
  needs 2 to 4 explanatory tables

vp1 <- varpart (SPHL, ~Pptn + ~ Temp + ~Moisture, data = SAE, scale = TRUE)

Error in varpart(SPHL, ~Pptn + ~Temp + ~Moisture, data = SAE, scale = TRUE) : 
  needs 2 to 4 explanatory tables