replacement has length zero

I have been working on the following code but keep getting an err
message. My
current thinking is that the problem is on the indexing but do not know
how
to fix it. Any help please?

ungulate <- read.csv("Ungulate.csv",row.names=1)
ungulate <-
as.matrix(ungulate);colnames(ungulate)<-NULL;rownames(ungulate)<-NULL
habitat <- read.csv("Ungulate_vegetation.csv")
habitat <- habitat[,3]
site.data <- read.csv("Ungulate_site.csv")
site <- site.data$SiteId
visit <- site.data$Visit
date <- site.data$Date
date <- matrix(date,nrow=20,ncol=7,byrow=TRUE)
S <- dim(ungulate)[1]
m <- 14	# number of augmented species
G <- read.csv("Ungulate_group.csv")
G <- G[,2]
g <- rep(NA,length=m)
G <- c(G,g) # combined list with actual and augmented data set so in
this
case 6 + 14 
g <- length(table(G))
# habitat id
Hab <- cbind(seq(1,20),habitat) #habitat types for 20 sties run from 2
to 4

hab <- matrix(NA,nrow=2,ncol=7)    #creating placing values to be
filled
with values generated by the following loop
for(i in 1:4){
hab[i,] <- Hab[habitat==i,1]   }   # want to use this loop to
substitute NA
by exact values as those found in the real data set which can be 2 to 4
but
keep getting an error message saying 

Error in hab[i, ] <- Hab[habitat == i, 1] : replacement has length zero

Any help. Thanks
Error in hab[i, ] <- Hab[habitat == i, 1] : replacement has length zero

--
View this message in context:
http://r.789695.n4.nabble.com/replacement-has-length-zero-tp4635700.html
Sent from the R help mailing list archive at Nabble.com.

I have been working on the following code but keep getting an err message. My
current thinking is that the problem is on the indexing but do not know how
to fix it. Any help please?

ungulate <- read.csv("Ungulate.csv",row.names=1)
ungulate <-
as.matrix(ungulate);colnames(ungulate)<-NULL;rownames(ungulate)<-NULL
habitat <- read.csv("Ungulate_vegetation.csv")
habitat <- habitat[,3]
site.data <- read.csv("Ungulate_site.csv")
site <- site.data$SiteId
visit <- site.data$Visit
date <- site.data$Date
date <- matrix(date,nrow=20,ncol=7,byrow=TRUE)
S <- dim(ungulate)[1]
m <- 14	# number of augmented species
G <- read.csv("Ungulate_group.csv")
G <- G[,2]
g <- rep(NA,length=m)
G <- c(G,g) # combined list with actual and augmented data set so in this
case 6 + 14
g <- length(table(G))
# habitat id
Hab <- cbind(seq(1,20),habitat) #habitat types for 20 sties run from 2 to 4

hab <- matrix(NA,nrow=2,ncol=7)    #creating placing values to be filled
with values generated by the following loop
for(i in 1:4){
	hab[i,] <- Hab[habitat==i,1]   }   # want to use this loop to substitute NA
by exact values as those found in the real data set which can be 2 to 4 but
keep getting an error message saying

Error in hab[i, ] <- Hab[habitat == i, 1] : replacement has length zero

Any help. Thanks
Error in hab[i, ] <- Hab[habitat == i, 1] : replacement has length zero

--
View this message in context: http://r.789695.n4.nabble.com/replacement-has-length-zero-tp4635700.html
Sent from the R help mailing list archive at Nabble.com.

Thanks Peter.

We had a look at both Hab and habitat. These are integers representing
habitat types.

habitat <- read.csv("Ungulate_vegetation.csv")
habitat <- habitat[,3]
habitat
[1] 3 3 4 3 3 3 4 4 3 3 3 3 3 4 2 3 2 3 2 3

Hab <- cbind(seq(1,20),habitat)
Hab
          habitat
  [1,]  1       3
  [2,]  2       3
  [3,]  3       4
  [4,]  4       3
  [5,]  5       3
  [6,]  6       3
  [7,]  7       4
  [8,]  8       4
  [9,]  9       3
[10,] 10       3
[11,] 11       3
[12,] 12       3
[13,] 13       3
[14,] 14       4
[15,] 15       2
[16,] 16       3
[17,] 17       2
[18,] 18       3
[19,] 19       2
[20,] 20       3

hab
      [,1] [,2] [,3] [,4] [,5] [,6] [,7]
[1,]   NA   NA   NA   NA   NA   NA   NA
[2,]   NA   NA   NA   NA   NA   NA   NA

for(i in 1:2){ hab[i, ] <- Hab[habitat==i,1] }

The idea is to assign habitat types to hab.

Thanks

--
View this message in context: http://r.789695.n4.nabble.com/replacement-has-length-zero-tp4635700p4635777.html
Sent from the R help mailing list archive at Nabble.com.