R/sol_date.table.R

In MetFns: Analysis of Visual Meteor Data

Defines functions sol_date.table

Documented in sol_date.table

sol_date.table<-function(solval,year){
  if(length(solval)>1 && length(year)>1)
   stop("Error: only one of the parameters can have length of 2 and greater.")
  dates<-data.frame(split(solar.long_date(solval,year),as.factor(solval)))
  colnames(dates)<-solval
  rownames(dates)<-year
  dates
}

Try the MetFns package in your browser