def run(self,*event):
#I tried for WAY to long to get this to work with the high-level interface
#but it usually resulted in the output having a very long label that
#contained all the data in the vector we passed to it, still not sure
#how to resolve it
args = rdict()
args['correct'] = self.parameters['Apply continuity correction'].get()
args = rsession.arguments_to_string(args)
s1lab,s1data = self.custom_variables['samples'][0]
if len(self.custom_variables['samples'])==2:
s2lab,s2data = self.custom_variables['samples'][1]
x = self.active_r_object[s1lab]
y = self.active_r_object[s2lab]
anova_output = rsession.r('mcnemar.test(x=%s,y=%s%s)' % (x, y, args))
else:
info('Please select two samples.')
name = 'T-Test ' + str(self.active_r_object.label)
self.parent.render_description(anova_output,label=name)
def run(self,*event):
#I tried for WAY to long to get this to work with the high-level interface
#but it usually resulted in the output having a very long label that
#contained all the data in the vector we passed to it, still not sure
#how to resolve it
args = rdict()
args['method'] = self.parameters['Method'].get().lower()[0]
args['conf.level'] = float( self.parameters['Confidence Level'].get() )
#R takes the first character as an argument
args['alternative'] = self.parameters['Alternative Hypothesis'].get().lower()[0]
args['exact'] = self.parameters['Exact'].get()
args = rsession.arguments_to_string(args)
s1lab,s1data = self.custom_variables['samples'][0]
if len(self.custom_variables['samples'])==2:
s2lab,s2data = self.custom_variables['samples'][1]
x = self.active_r_object[s1lab]
y = self.active_r_object[s2lab]
anova_output = rsession.r('cor.test(x=%s,y=%s,data=%s,%s)' % (x, y, self.active_r_object.label, args))
else:
info('Please select two samples.')
name = 'Correlation Test ' + str(self.active_r_object.label)
self.parent.render_description(anova_output,label=name)
