Function with dataframe argument variables.?

[Mandans <mandans_p@yahoo.com>]

Hi Everyone,

I have quick question regarding writing a function for a dataframe with 
arguments called from the dataframe name.

Here is what I am trying to get a simple mean. my question how do address the 
Data$Variable1 with an argument Variable passed into the function.?

-------------------------------
VarianceT1 <- function(Data, Variable1) {

    if(!is.data.frame(Data))
    stop("Data should be a dataframe")
    if(dim(Data)[1] != length(Data$Variable1))
    stop("Data and Variable1 should be of the same length")
   
a1 <- mean(Data$Variable1)

return(a1)
   
}

--------------------------------
Appreciate all your help and thanks for all shared ideas out there on s-news 
archive.

Thanks a bunch.
Thanks