2b:null 2c:["$","title",null,{"children":"F-Test (Fisher–Snedecor Distribution) | Lao | Observable"}] 31:T607,viewof input = { const form = html``; form.oninput = () => { form.value = [ form.d1.valueAsNumber, form.d2.valueAsNumber, form.F.valueAsNumber, form.a.valueAsNumber ]; } form.oninput(); return form; }32:Tfbe,graph = { const w = width; const h = 400; const padding = {x0:30, x1:7, y0:35, y1:50}; const color = '#1EDE89' let d1 = input[0] let d2 = input[1] let F = input[2] let a = input[3] let p = cephes.fdtrc(d1, d2, F) let Fa = cephes.fdtri(d1, d2, a) let BETA = cephes.beta(d1/2, d2/2) let c = (d1/d2)**(d1/2) / BETA let f = (x) => { return c * x**(d1/2-1) * (1 + d1/d2 * x)**(-(d1+d2)/2) ; } // make graph points let domain = [0,Math.max(Math.min(15,cephes.fdtri(d1, d2, .005)), 1.1*F, 1.1*Fa)] let x let makeDensity = () =>{ let points = [[0,0]] let step = (w-padding.x0-padding.x1)*3 for(let i=.1; i{ let points = [ [Fa,0], [Fa,f(Fa)] ] for(let i=0; i Fa){ points.push( data[i] ) } } return points } // calculate the graph window let yValues = [] for(let i=0; i xScale(d[0])) .y((d) => yScale(d[1])) // plot function const density = svg .append('path') .datum(data) .attr('d', line) .attr('fill', color) .attr('fill-opacity', .1) .attr('stroke', color); const critical = svg .append('path') .datum( makeCritical(data) ) .attr('d', line) .attr('fill', color) .attr('fill-opacity', .75) .attr('stroke', 'none'); // lines let line2 = d3 .line() .x((d) => d[0]) .y((d) => d[1]) const marks = svg .selectAll("curve") .data([{name:'critical', color:color}, {name:'F', color:'black'}]) .enter() .append('path') .attr('stroke', d => d.color) .style("stroke-width", 1) .datum((d,i) => [ [ [xScale(Fa), yScale(0) +12] , [xScale(Fa), yScale(f(Fa)) -30 ] ], [ [xScale(F), yScale(0) + 12 ] , [xScale(F), yScale(f(F)) -30 ] ] ][i]) .attr('d', line2) //text let textData = [ {text:Fa.toLocaleString(undefined, { minimumFractionDigits: 3 }), color:color, x:xScale(Fa), y:yScale(0) + 12}, {text:a.toLocaleString(undefined, { minimumFractionDigits: 3 }), color:color, x:xScale(Fa), y:yScale(f(Fa)) -30}, {text:'Fₐ', color:color, x:xScale(Fa), y:yScale(0) + 27}, {text:'α', color:color, x:xScale(Fa), y:yScale(f(Fa)) -45}, {text:F.toLocaleString(undefined, { minimumFractionDigits: 3 }), color:'black', x:xScale(F), y:yScale(0) + 12}, {text:p.toLocaleString(undefined, { minimumFractionDigits: 3 }), color:'black', x:xScale(F), y:yScale(f(F)) -30}, {text:'F', color:'black', x:xScale(F), y:yScale(0) + 27}, {text:'p', color:'black', x:xScale(F), y:yScale(f(F)) -45} ] let dynamicText = svg .selectAll("g") .data( textData ) .enter() .append('text') .attr("x", (d,i) => d.x ) .attr("y", (d,i) => d.y+4 ) .text((d,i) => d.text ) .attr("text-anchor", 'middle') .style("font-size", 10) .attr("font-family", "Arial") .attr("font-weight",700) .attr('fill', d => d.color) .attr("stroke", "white") .attr("paint-order", "stroke") .style("stroke-width", 5) /*/ axes numbers let xAxis = d3.axisBottom(xScale).ticks(20); svg.append("g") .attr("transform", `translate(0,${h - padding.y0})`) .call(xAxis) let yAxis = d3.axisLeft(yScale); svg.append("g") .attr("transform", `translate(${padding.x0}, 0)`) .call(yAxis)*/ // print return svg.node(); }33:[] 2f:{"id":"7980ac32a7e52e06","slug":"f-test-fisher-snedecor-distribution","title":"F-Test (Fisher–Snedecor Distribution)","thumbnail":"94352e74eccf6dc12a4aa3792d8a2daa4f4b78281f424c2eb5c6c6ea0da32e4a","access_level":"public","create_time":"$D2022-03-23T19:58:45.111Z","update_time":"$D2022-03-31T05:00:57.405Z","view_time":null,"first_public_time":"$D2022-03-23T23:30:54.672Z","fork":false,"stars":7,"starred":false,"owner":{"type":"team","id":"cf45be0120eccaad","login":"laotzunami","name":"Lao","avatar_url":"https://avatars-next.observableusercontent.com/aeddc181df6ca80a347940ba62e17601ac6395e9d2c21142887eca5fd277326a","tier":"starter_2024"},"version":393,"publish_version":393,"role":null,"authored":false,"authors":[{"type":"individual","id":"5da1d0646b8496ac","login":"laotzunami","name":"Lao","avatar_url":"https://avatars-next.observableusercontent.com/9c14da488e1a68ca1868ed025eb7edcce3d300c8a9f3fbcdae66a3daa9ccca63","tier":null}],"members":[{"type":"individual","id":"5da1d0646b8496ac","login":"laotzunami","name":"Lao","avatar_url":"https://avatars-next.observableusercontent.com/9c14da488e1a68ca1868ed025eb7edcce3d300c8a9f3fbcdae66a3daa9ccca63","tier":null,"role":"editor"}],"comments":[],"custom_thumbnail":false,"trashed":false,"subscribed":null,"forks":2,"collection":null,"type":"notebook","body":{"title":"F-Test (Fisher–Snedecor Distribution)","cells":[{"id":3,"value":"md` # F-Test (Fisher–Snedecor Distribution)`","pinned":false,"hidden":false,"mode":"ojs","author":"$undefined","summary":"$undefined"},{"id":32,"value":"$31","pinned":false,"hidden":false,"mode":"ojs","author":"$undefined","summary":"$undefined"},{"id":174,"value":"md`\n${tex`p \\,\\space\\space = \\space`} ${(cephes.fdtrc(input[0], input[1], input[2])).toLocaleString(undefined, { minimumFractionDigits: 16 })} chance of randomly getting this F ratio or better
\n${tex`F_{\\alpha} = \\space`} ${(cephes.fdtri(input[0], input[1], input[3])).toLocaleString(undefined, { minimumFractionDigits: 16 })} smallest F ratio that would be significant\n`","pinned":false,"hidden":false,"mode":"ojs","author":"$undefined","summary":"$undefined"},{"id":84,"value":"$32","pinned":false,"hidden":false,"mode":"ojs","author":"$undefined","summary":"$undefined"},{"id":27,"value":"cephes = {\n const c = await require(\"https://bundle.run/cephes@1.2.0\");\n await c.compiled;\n return c;\n}","pinned":false,"hidden":false,"mode":"ojs","author":"$undefined","summary":"$undefined"}],"files":"$W33","stdlib":"1","titling":"auto"}} 30:"$2f:body"