Description Usage Arguments Details Value Author(s) Examples
Change type of variable names in Wi Fish Management Data.
1 2 3 4 5 |
df |
The data.frame that contains the Wi Fish Management Data (likely directly from the FM database). |
from |
A single string that indicates the variable name type that currently exists in |
to |
A single string that indicates the variable name type that the user wantes to convert the variable names in |
check.names |
A single logical that indicates whether the resulting names should be checked to ensure that they are syntactically valid variable names (for R). If necessary they will be adjusted (by |
... |
Not yet implemented. |
This function can change variable names in a data frame consisting of Wi Fish Management Data. The three formats allowed are as follows:
"DNR"
– “long” names directly from the FM database. These variable names have spaces as would appear when the database output is read into R with read.table
or read.csv
using check.names=FALSE
.
"RDNR"
– “long” names as from the FM database but with spaces replaced by periods. These variable names would appear when the database output is read into R with read.table
or read.csv
using check.names=TRUE
(the default of those functions).
"R"
– “short” names for ease of use in R scripts.
A data.frame exactly as in df
but with new names.
Derek H. Ogle, dogle@northland.edu
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 | ## Not run:
ftmp <- system.file("extdata", "FMDB_ex.csv",package="fishWiDNR")
## Read in datafile (note periods in names) ... this is RDNR type of data
df <- read.csv(ftmp,stringsAsFactors=FALSE,na.strings="-")
df <- setFMDBClasses(df,type="RDNR")
str(df)
## test from RDNR to R (these are the defaults)
dfR <- changeFMDBNames(df)
data.frame(names(df),names(dfR))
## test from R back to RDNR
dfRDNR <- changeFMDBNames(dfR,from="R",to="RDNR")
data.frame(names(df),names(dfR),names(dfRDNR))
all(names(df)==names(dfRDNR))
## test from RDNR to DNR
dfDNR <- changeFMDBNames(df,from="RDNR",to="DNR")
data.frame(names(df),names(dfDNR))
## Check names (same as changing to RDNR)
dfRDNR1 <- changeFMDBNames(dfR,from="R",to="DNR",check.names=TRUE)
data.frame(names(dfR),names(dfRDNR),names(dfRDNR1))
all(names(dfRDNR)==names(dfRDNR1))
## test from partial list of RDNR names to R
df2 <- df[,-c(1,4,7,10,16,32:47)]
df2R <- changeFMDBNames(df2)
data.frame(names(df2),names(df2R))
## ... and back ...
df2RDNR <- changeFMDBNames(df2R,from="R",to="RDNR")
data.frame(names(df2),names(df2R),names(df2RDNR))
all(names(df2)==names(df2RDNR))
## test from variables not in VarLookup of RDNR names to R
## variables at the end
df3 <- df
df3$junk <- 7
df3$junk2 <- "Derek"
df3R <- changeFMDBNames(df3)
data.frame(names(df3),names(df3R))
## variables at the beginning
nc <- ncol(df3)
df4 <- df3[,c(nc-1,nc,1:(nc-2))]
df4R <- changeFMDBNames(df4)
data.frame(names(df4),names(df4R))
## variables in the middle and separated
df5 <- df3[,c(1:10,nc-1,11:20,nc,21:(nc-2))]
df5R <- changeFMDBNames(df5)
data.frame(names(df5),names(df5R))
## Read in datafile (use check.names to allow spaces in names) ... this is DNR type of data
df1 <- read.csv(ftmp,stringsAsFactors=FALSE,check.names=FALSE,na.strings="-")
df1 <- setFMDBClasses(df1,type="DNR")
str(df1)
## test from DNR to R
df1R <- changeFMDBNames(df1,from="DNR")
data.frame(names(df1),names(df1R))
## test from R back to DNR
df1DNR <- changeFMDBNames(df1R,from="R",to="DNR")
data.frame(names(df1),names(df1R),names(df1DNR))
all(names(df1)==names(df1DNR))
## End(Not run)
## Check error message
## Not run:
dfbad <- changeFMDBNames(df2,from="R",to="R")
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.