Evaluate column of matrix
问题 I am trying to evaluate the 8th column of a matrix sep <- read.csv("California_SEP_assets_csv.csv") Sub1 <- sep[grep("SEP.11", names(sep))] sep$newCol <- 100*rowSums(Sub1)/rowSums(sep[4:7]) library(sp) coords <- cbind(Longitude = as.numeric(as.character(sep$Longitude)),Latitude=as.numeric(as.character(sep$Latitude))) if (sep[8] > 50){ sep.pts <- SpatialPointsDataFrame(coords,sep[,-(2:3)],proj4string = CRS("+init=epsg:4326")) } else { sep2.pts <- SpatialPointsDataFrame(coords,sep[,-(2:3)]