R/A_PCR_Test.R

In JSDNE: Estimating the Age using Auricular Surface by DNE

#'
#' A_PCR_Test
#' 
#' A_PCR_Test is the test set of the A_PCR model. It consists of Age, MeanDNE.Apex, Proportion.DNEunder0.0001, Proportion.DNEover0.6, IQRDNE.Whole. The number of rows is 66.
#' 
#' 
#' 
#' @export
#' 
A_PCR_Test<-{
  Age<-c(35, 55, 28, 35, 62, 64, 71, 36, 49, 55, 61, 37, 38, 68, 63, 40, 68, 30, 70, 23, 78, 25, 33, 72, 50, 51, 91, 85, 37, 64, 61, 53, 34, 44, 51, 48, 66, 93, 65, 40, 34, 69, 72, 56, 39, 40, 54, 53, 65, 48, 22, 49, 34, 83, 44, 49, 72, 24, 34, 36, 44, 57, 66, 67, 70, 86)
  
  MeanDNE.Apex<-c(0.023994977, 0.045844036, 0.023333698, 0.018172068, 0.045961791, 0.057453904, 0.031885315, 0.027327481, 0.036842352, 0.028296179, 0.038528643, 0.032946988, 0.029912218, 0.049137209, 0.043480957, 0.030924294, 0.054931459, 0.032102424, 0.053486026, 0.023107591, 0.035917702, 0.022264615, 0.021836499, 0.051059728, 0.037580254, 0.031937279, 0.067756791, 0.051102027, 0.026047666, 0.044915547, 0.022581289, 0.046294809, 0.025854463, 0.017798173, 0.041573506, 0.033334528, 0.023358608, 0.063956773, 0.045662739, 0.025430993, 0.024510669, 0.036925403, 0.045451411, 0.033383496, 0.018367702, 0.030047411, 0.03818694, 0.015311198, 0.03944393, 0.024561443, 0.025268663, 0.021586759, 0.030148466, 0.046977608, 0.040930278, 0.031408135, 0.037938998, 0.019199026, 0.018228342, 0.022953065, 0.038076577, 0.033738011, 0.020863875, 0.028185319, 0.058266343, 0.050942872)
  
  Proportion.DNEunder0.0001<-c(0.007644305, 0.003998022, 0.006348806, 0.008038409, 0.002915881, 0.005301525, 0.004179094, 0.007053252, 0.007179367, 0.006927387, 0.003884625, 0.005997102, 0.006475786, 0.004671368, 0.003849312, 0.006914357, 0.003561064, 0.008222267, 0.003741029, 0.006973265, 0.002769775, 0.007622561, 0.007620162, 0.001471127, 0.004365469, 0.00350273, 0.002943656, 0.003581229, 0.005238991, 0.005965576, 0.001816608, 0.005883929, 0.007073288, 0.004339052, 0.006594206, 0.007821166, 0.003302121, 0.002538674, 0.002949832, 0.005945972, 0.0070172, 0.003084757, 0.003806784, 0.003231867, 0.007223386, 0.004042759, 0.006110721, 0.003034763, 0.005583682, 0.00509857, 0.004059165, 0.003896822, 0.00311311, 0.004930098, 0.004435266, 0.00481791, 0.003205859, 0.008017038, 0.004168604, 0.006987424, 0.006982298, 0.004993727, 0.003513088, 0.004241633, 0.004318352, 0.002547876)
  
  Proportion.DNEover0.6<-c(0.000482866, 0.000706043, 0.000688915, 0.001027971, 0.002153, 0.00158389, 0.001194524, 0.000451021, 0.002478924, 0.001474489, 0.002933464, 0.000903902, 0.001686585, 0.001273217, 0.002339717, 0.001444569, 0.002120858, 0.001077113, 0.001442104, 0.000976368, 0.002353858, 0.000466295, 0.001096807, 0.003072557, 0.001767722, 0.001140733, 0.004439134, 0.002645402, 0.000385714, 0.002394259, 0.002599239, 0.002643672, 0.00118645, 0.000561289, 0.002248574, 0.00149931, 0.001378852, 0.003344059, 0.001493413, 0.001057537, 0.000471563, 0.002172031, 0.003271404, 0.001558613, 0.001846707, 0.001471101, 0.002000245, 0.001723568, 0.001933089, 0.002307605, 0.001080778, 0.002452829, 0.000514621, 0.002415394, 0.001260005, 0.000805301, 0.002167024, 0.0010066, 0.000693107, 0.001618281, 0.002233983, 0.002057928, 0.001054219, 0.001866172, 0.001785398, 0.004037521)
  
  IQRDNE.Whole<-c(0.010904658, 0.025365657, 0.009494472, 0.015625592, 0.023058959, 0.029368725, 0.03095497, 0.010335712, 0.014280531, 0.008736284, 0.027241053, 0.006442091, 0.020644532, 0.019703031, 0.02289566, 0.013299124, 0.027986821, 0.016241854, 0.020034679, 0.011021901, 0.023776548, 0.008735201, 0.016614582, 0.024645992, 0.012683356, 0.021658536, 0.04165676, 0.031364149, 0.018440093, 0.023746031, 0.019199573, 0.020458565, 0.019648403, 0.017539362, 0.020638768, 0.014927045, 0.027839938, 0.035242567, 0.01998848, 0.012416721, 0.013901009, 0.019578153, 0.026573249, 0.017635236, 0.013138743, 0.01328555, 0.010535982, 0.026875029, 0.021526379, 0.017901669, 0.014033579, 0.023970343, 0.013343862, 0.027536887, 0.025057878, 0.025490417, 0.027012139, 0.007833246, 0.005681035, 0.010722169, 0.024412471, 0.020060333, 0.01482272, 0.01855118, 0.02721355, 0.037297922)
  
  A_PCR_Test <- data.frame(Age,MeanDNE.Apex,Proportion.DNEunder0.0001,Proportion.DNEover0.6,IQRDNE.Whole)
  A_PCR_Test
}

#' @examples 
#' A_PCR_Test